home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Directorty Opus 5 - Magellan 2
/
Opus 5 - Magellan 2.iso
/
Archiv
/
DLGoodies.lha
/
lcd.dopus5
< prev
next >
Wrap
Text File
|
1996-08-30
|
948b
|
45 lines
/*
* -----
* lcd.dopus5
* -----
*
* Opens a new lister in Opus 5 showing the current directory in the
* shell you run it from.
*
* by Jonathan Potter, 7th May 1995
*
* Sample usage :
*
* alias lcd "rx dopus5:rexx/lcd.dopus5" (in shell-startup)
* lcd (from a shell)
*
*
* address 'DOPUS.1'
*
* Get current directory.. there's probably an easier way of doing this
* address command 'cd >t:temp-cd'
*
* Open temp file
* ok = open('in','t:temp-cd','r')
* if ok ~= 1 then exit
*
* Read cd
* cd = readln('in')
*
* Open new lister
* lister new cd
*
* Bring dopus to front
* dopus front
*
*
************************************************************************#
* There is indeed an easy way of doing it without clobbering T:
* Change by David Lübbren (14.7.96).
*/
address 'DOPUS.1'
lister new PRAGMA('Directory')
dopus front
exit